home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / JPEG.ifx < prev    next >
Text File  |  1996-03-02  |  760b  |  46 lines
  1. /*
  2.  * $VER: JPEG 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Convert a series of 24-bit images to JPEG files.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. RequestFile '"Input Basename..."'
  14. IF rc ~= 0 THEN EXIT
  15. input = result
  16.  
  17. RequestFile '"Output Basename..."'
  18. IF rc ~= 0 THEN EXIT
  19. output = result
  20.  
  21. RequestNumber '"Compression Quality..."' 25 100 75
  22. IF rc ~= 0 THEN EXIT
  23. quality = result
  24.  
  25. DO i = 1 TO 25
  26.  
  27.    num = RIGHT(i,3,'0')
  28.    Message 'Frame' num
  29.  
  30.    LoadBuffer input||num
  31.    IF rc ~= 0 THEN LEAVE
  32.  
  33.    SaveBufferAs JPEG output||num quality
  34.  
  35.    END
  36.  
  37. /*
  38.  * Optionally archive the results and delete.
  39.  *
  40.  * ADDRESS COMMAND 'lha a ram:JP' output||'#?'
  41.  * ADDRESS COMMAND 'c:delete' output||'#?'
  42.  *
  43.  */
  44.  
  45. EXIT
  46.